function resp = parte2a(n)
  % r 30 numeros random de 1 a 36 �ra calcular la prob
  r=zeros(1,30);
  %cot cambio de cotizacion diario
  cot=zeros(1,30);
  %val val(i)=val(i-1)*(1-cot(i)) --> valor del dia es el valor del dia anterior con el cambio en la cotizacion de hoy
  val=zeros(1,30);
  %ben ben(i)=val(i)-val(0)
  ben=zeros(1,30);
  %men 5000 beneficios mensuales distintos
  men=zeros(1,n);
  
  %a_0 cant inicial
  a_0=0;
  
  promedio=zeros(1,n);
  varianza=zeros(1,n);
  
  for j=1:n
    last = a_0;
    r=rand(1,30)*36 + 1;
	  
    for i=1:30
      if ( r(i)<4 )
	cot(i)=-1/8;
      end
      if ( r(i)>=4 && r(i)<11 )
	cot(i)=0;
      end
      if ( r(i)>=11 && r(i)<27 )
	cot(i)=1/8;
      end
      if ( r(i)>=27 && r(i)<34 )
	cot(i)=1/2;
      end
      if ( r(i)>=34 )
	cot(i)=1;
      end

      %r(i)
      %cot(i)      
      
      val(i)=last+cot(i);
      %no se si es o uno o el otro.. o el de arriba o el de abajo
      %val(i)=(a_0*(1+cot(i)));
      
%      ben(i)= ben(i) + val(i) - a_0
       ben(i)= val(i);% 	- a_0;
       

%       ben(i)

      last=val(i);
      

    end
%    cot;
    men(j)=ben(30);
	
	%Formulas para calcular media y varianza
	%M(1) = x(1), M(k) = M(k-1) + (x(k) - M(k-1)) / k
	%S(1) = 0, S(k) = S(k-1) + (x(k) - M(k-1)) * (x(k) - M(k))
	%sigma = sqrt(S(n) / (n - 1))
   if(j<=1)
		promedio(1)=men(j);
		varianza(1)=0;
   else
		promedio(j) = promedio(j-1) + (men(j)-promedio(j-1))/j;
		varianza(j) = varianza(j-1) + (men(j) - promedio(j-1))*( men(j) - promedio(j));
   end
  %men(j)=mean(ben);
end
    
%a=mean(men);
resp=[promedio(n) varianza(n)/(n-1)];
%val'
%ben(i)
  
end  
  

  
    
    
  
